; chapter3 exercise 3-8
(setf L '(a b c))

(defun showdots (lst)
	(if (null (cdr lst))
		(format t "(~A . NIL)" (car lst))
		(progn (format t "(~A . " (car lst))
					 (showdots (cdr lst))
					 (format t ")"))))
